home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 002 / editc.lqr / ED2.C < prev    next >
Text File  |  1985-06-14  |  12KB  |  607 lines
  1. /* ED2.C */
  2.  
  3. #include "ed0.c"
  4. #include "ed1.ccc"
  5. #define SIGNON "E.K. Ream/Dr Dobb's Editor - IBM PC enhancement: Mar. 10, 1984"
  6. #define SIGNNN "            Modified by Alan D. Howard"
  7. #define HELP1 "open <f/n> | name <f/n> | rename <f/n> | delname <f/n>"
  8. #define HELP2 "load <f/n> | append <f/n> | rest | read <n> | write <n> | save"
  9. #define HELP3 "extract [<f t>] | closeread | closewrite"
  10. #define HELP4 "clear | delete [<f t>] | move [<f t n>] | copy [<f t n>]"
  11. #define HELP5 "find | search [<f t>] | change [<f t>] | list [<f t>]"
  12. #define HELP6 "tabs <n> | showtab | hidetab | help | dos | g <n> | count <n>"
  13. #define CMNDMODE    1
  14. #define INSMODE     2
  15. #define EDITMODE    3
  16. #define EXITMODE    4
  17. int    begin_line, end_line, buf_picked;
  18. main(argc,argv) char *argv[];
  19. {
  20. int mode;
  21. int i;
  22.     sysinit();
  23.     fmtassn(NO);
  24.     fmtset(8);
  25.     fmtntab();
  26.     outclr();
  27.     outxy(0,SCRNL1);
  28.     message(SIGNON);
  29.     message(SIGNNN);
  30.     outxy(0,1);
  31.     fileclear();    /* make sure no read or write files indicated */
  32.     bufnew();
  33.     begin_line=(-1);    /* imaginary to start with */
  34.     end_line=(-1);
  35.     buf_picked=NO;
  36.     mode=CMNDMODE;
  37.     if (argc>1) {
  38.         openf(argv[1],NO);
  39.         rest(argv[0]);
  40.         outxy(0,1);
  41.     }
  42.     edgetln();
  43.     while(1){
  44.         if (mode ==EXITMODE) {
  45.             sysfinish();
  46.             break;
  47.         }
  48.         else if (mode==CMNDMODE) {
  49.             mode=command();
  50.         }
  51.         else if (mode==EDITMODE) {
  52.             mode=edit();
  53.         }
  54.         else if (mode==INSMODE) {
  55.             mode=insert();
  56.         }
  57.         else {
  58.             syserr("main: no mode");
  59.             mode=EDITMODE;
  60.         }
  61.     }
  62. }
  63. edit()
  64. {
  65. char c;
  66.     pmtedit();
  67.     while(1){
  68.         c=syscin();    /* tolower eliminated */
  69.         if (c==ESC1) {        /* enter command mode */
  70.             return(CMNDMODE);
  71.         }
  72.         else if (c==INS1) {    /* enter insert mode */
  73.             return(INSMODE);
  74.         }
  75.         else if (special(c)==YES) {
  76.             if (c==UP1){    /* DOWN1 now treated separately */
  77.                 return(INSMODE);
  78.             }
  79.             else {
  80.                 continue;
  81.             }
  82.         }
  83.         else if (c==DOWN1) {    /* DOWN1 now does not     */
  84.             eddn();     /* enter insert mode but */
  85.             pmtline();    /* just advances to next line */
  86.             edbegin();
  87.             pmtcol();
  88.         }
  89.         else if (c==DTOCH){    /* kill to character entered */
  90.             pmtmode("edit:    kill");
  91.             c=syscin();
  92.             if ((special(c)==NO) &
  93.                 (control(c)==NO)) {
  94.                 edkill(c);
  95.             }
  96.             pmtedit();
  97.         }
  98.         else if (c==GTOCH){    /* search to character entered */
  99.             pmtmode("edit: search");
  100.             c=syscin();
  101.             if ((special(c)==NO) &
  102.                 (control(c)==NO)) {
  103.                 edsrch(c);
  104.             }
  105.             pmtedit();
  106.         }
  107.         else {        /* editor now exchanges any other character */
  108.             if ((special(c)==NO) &    /* with cursor */
  109.                 (control(c)==NO)) {
  110.                 edchng(c);
  111.             }
  112.             pmtcol();
  113.         }
  114.     }
  115. }
  116. insert()
  117. {
  118. char c;
  119.     pmtmode("insert");
  120.     while(1) {
  121.         c=syscin();
  122.         if (c==ESC1) {
  123.             return(CMNDMODE);
  124.         }
  125.         else if (c==EDIT1) {
  126.             return(EDITMODE);
  127.         }
  128.         else if (c==INS1) {
  129.             ;
  130.         }
  131.         else if (c==DOWN1) {    /* in insert mode DOWN1 treated  */
  132.             ednewdn();    /* differently from edit mode     */
  133.             pmtline();    /* inserts new line */
  134.             continue;
  135.         }
  136.         else if (c==DTOCH){    /* kill to character entered */
  137.             pmtmode("Insert: kill");
  138.             c=syscin();
  139.             if ((special(c)==NO) &
  140.                 (control(c)==NO)) {
  141.                 edkill(c);
  142.             }
  143.         }
  144.         else if (c==GTOCH){    /* search to character entered */
  145.             pmtmode("Insert: search");
  146.             c=syscin();
  147.             if ((special(c)==NO) &
  148.                 (control(c)==NO)) {
  149.                 edsrch(c);
  150.             }
  151.         }
  152.         else if (special(c)==YES) {
  153.             continue;
  154.         }
  155.         else if (control(c)==YES) {
  156.             continue;
  157.         }
  158.         else {
  159.             edins(c);
  160.             pmtcol();
  161.         }
  162.     }
  163. }
  164. control(c) char c;
  165. {
  166.     if (c==TAB) {
  167.         return(NO);
  168.     }
  169.     else if (c>=127) {
  170.         return(YES);
  171.     }
  172.     else if (c<32) {
  173.         return(YES);
  174.     }
  175.     else {
  176.         return(NO);
  177.     }
  178. }
  179. special(c) char c;
  180. {
  181. char sbuffer[SCRNW1];
  182. int v,x,y;
  183. int k;
  184.     if (c==JOIN1) {
  185.         edjoin();
  186.         pmtline();
  187.         return(YES);
  188.     }
  189.     if (c==SPLT1) {
  190.         edsplit();
  191.         pmtline();
  192.         return(YES);
  193.     }
  194.     if (c==ABT1) {
  195.         edabt();
  196.         pmtcol();
  197.         return(YES);
  198.     }
  199.     else if (c==LFTDEL) {        /* delete to left of cursor */
  200.         edldel();
  201.         pmtcol();
  202.         return(YES);
  203.     }
  204.     else if (c==DEL1) {        /* delete at cursor */
  205.         edcdel();
  206.         pmtcol();
  207.         return(YES);
  208.     }
  209.     else if (c==ZAP1) {
  210.         edzap();
  211.         pmtline();
  212.         return(YES);
  213.     }
  214.     else if (c==UP2) {
  215.         edup();
  216.         pmtline();
  217.         return(YES);
  218.     }
  219.     else if (c==UP1) {
  220.         ednewup();
  221.         pmtline();
  222.         return(YES);
  223.     }
  224.  
  225. /* DOWN1 (CR) is no longer a special character */
  226.  
  227.     else if (c==DOWN2) {
  228.         eddn();
  229.         pmtline();
  230.         return(YES);
  231.     }
  232.     else if (c==ABSLEFT) {        /* left one column */
  233.         edabsleft();
  234.         pmtcol();
  235.         return(YES);
  236.     }
  237.     else if (c==ABSRGHT) {         /* right one column */
  238.         edabsright();
  239.         pmtcol();
  240.         return(YES);
  241.     }
  242.     else if (c==LEFT1) {          /* left one character */
  243.         edleft();
  244.         pmtcol();
  245.         return(YES);
  246.     }
  247.     else if (c==RIGHT1) {         /* right one character */
  248.         edright();
  249.         pmtcol();
  250.         return(YES);
  251.     }
  252.     else if (c==BEGINPL) {        /* mark beginning line */
  253.         begin_line=bufln();
  254.         pmtmode("marked buff top");
  255.         return(YES);
  256.         }
  257.     else if (c==ENDPL) {        /* mark ending line */
  258.         end_line=bufln();
  259.         pmtmode("marked buff end");
  260.         return(YES);
  261.         }                                   
  262.     else if (c==PICKIT) {        /* pick marked lines to buffer */
  263.         if (edpick(begin_line,end_line)!=ERR) {
  264.             pmtmode("buffer picked");
  265.             buf_picked=YES;
  266.             }
  267.         return(YES);
  268.         }
  269.     else if (c==RIGHT1) {    /* go to end of line */
  270.         edright();
  271.         pmtcol();
  272.         return(YES);
  273.     }
  274.     else if (c==ERASE) {    /* erase to end of line */
  275.         ederase();
  276.         pmtcol();
  277.         return(YES);
  278.     }
  279.     else if (c==HOME) {    /* move cursor alternatingly to */
  280.         edhome();    /* top and bottom of screen */
  281.         pmtline();
  282.         sysabort();
  283.         return(YES);
  284.     }
  285.     else if (c==LSTRT) {    /* move to beginning of line */
  286.         edbegin();
  287.         pmtcol();
  288.         return(YES);
  289.     }
  290.     else if (c==PUTIT) {   /* put buffer before line*/
  291.         if (buf_picked==YES) {
  292.             edput();
  293.             begin_line=(-1);
  294.             end_line=(-1);
  295.             }
  296.         pmtline();
  297.         return(YES);
  298.     }
  299.     else if (c==DSCROL) {    /* scroll down */
  300.         pmtmode("Scroll down");
  301.         while (bufnrbot()==NO) {
  302.             if (chkkey()==YES) {
  303.                 break;
  304.             }
  305.             if (eddn()==ERR) {
  306.                 break;
  307.             }
  308.         }
  309.         pmtline();
  310.         return(YES);
  311.     }
  312.     else if (c==LEND){    /* move to end of line */
  313.         edend();
  314.         pmtcol();
  315.         return(YES);
  316.     }
  317.     else if (c==PAGEUP) {  /* move up 20 lines */
  318.         y=bufln();
  319.         y=max(y-20,1);
  320.         if (bufattop()!=YES) {
  321.             edgo(y,0);
  322.         }
  323.         pmtline();
  324.         return(YES);
  325.     }
  326.     else if (c==PAGEDN) {   /*move down 20 lines */
  327.         y=bufln();
  328.         y=y+20;
  329.         if (bufnrbot()!=YES) {
  330.             edgo(y,0);
  331.         }
  332.         pmtline();
  333.         return(YES);
  334.     }
  335.     else if (c==GOTO){    /* go to line entered */
  336.         x=outxget();
  337.         y=outyget();
  338.         pmtcmnd("Goto: ",sbuffer);
  339.         if(number(sbuffer,&v)) {
  340.             edgo(v,0);
  341.         }
  342.         else {
  343.             outxy(x,y);
  344.         }
  345.         return(YES);
  346.     }
  347.     else if (c==USCROL) {    /* scroll up */
  348.         pmtmode("Scroll up");
  349.         while (bufattop()==NO) {
  350.             if (chkkey()==YES) {
  351.                 break;
  352.             }
  353.             if (edup()==ERR) {
  354.                 break;
  355.             }
  356.         }
  357.         pmtline();
  358.         return(YES);
  359.     }
  360.     else  {
  361.         return(NO);
  362.     }
  363. }
  364. command()
  365. {
  366. int v;
  367. char c;
  368. char args[SCRNW1];
  369. char *argp;
  370. int topline;
  371. int ypos;
  372. int oldline;
  373. int k;
  374.     edrepl();
  375.     oldline=bufln();
  376.     ypos=outyget();
  377.     topline=oldline-ypos+1;
  378.     while(1) {
  379.         outxy(0,SCRNL1);
  380.         fmtcrlf();
  381.         pmtmode("command:");
  382.         getcmnd(args,0);
  383.         fmtcrlf();
  384.         pmtline();
  385.         c=args[0];
  386.         if ((c==EDIT1)|(c==INS1)) {
  387.             if (oldline==bufln()) {
  388.                 edgetln();
  389.                 bufout(topline,1,SCRNL1);
  390.                 outxy(0,ypos);
  391.             }
  392.             else {
  393.                 edgo(bufln(),0);
  394.             }
  395.             if (c==EDIT1) {
  396.                 return(EDITMODE);
  397.             }
  398.             else {
  399.                 return(INSMODE);
  400.             }
  401.         }
  402.         else if (tolower(args[0])=='g'){
  403.             argp=skipbl(args+1);
  404.             if (argp[0]==EOS) {
  405.                 edgo(oldline,0);
  406.                 return(EDITMODE);
  407.             }
  408.             else if (number(argp,&v)==YES) {
  409.                 edgo(v,0);
  410.                 return(EDITMODE);
  411.             }
  412.             else {
  413.                 message("bad line number");
  414.             }
  415.         }
  416.         else if (lookup(args,"append")) {
  417.             append(args);
  418.         }
  419.         else if (lookup(args,"change")) {
  420.             change(args,begin_line,end_line);
  421.         }
  422.         else if (lookup(args,"clear")) {
  423.             sysabort();
  424.             clear();
  425.         }
  426.         else if (lookup(args,"count")) { /* repeat count for replay */ 
  427.             count(args);
  428.         }
  429.         else if (lookup(args,"delete")) {
  430.             delete(args,begin_line,end_line);
  431.             begin_line=(-1);
  432.             end_line=(-1);
  433.             buf_picked=YES;
  434.         }
  435.         else if (lookup(args,"dos")) {
  436.             sysabort();
  437.             if (chkbuf()==YES) {
  438.                 closewrite();    /* write file closed on exit */
  439.                 return(EXITMODE);
  440.             }
  441.         }
  442.         else if (lookup(args,"find")) {
  443.             if ((k=find()) >= 0) {
  444.                 edgo(bufln(),k);
  445.                 return(EDITMODE);
  446.             }
  447.             else {
  448.                 bufgo(oldline);
  449.                 edgetln();
  450.                 message("pattern not found");
  451.             }
  452.         }
  453.         else if (lookup(args,"list")) {
  454.             list(args,begin_line,end_line);
  455.         }
  456.         else if (lookup(args,"open")) {     /* new */
  457.             sysabort();
  458.             openf(args,YES);
  459.         }
  460.         else if (lookup(args,"load")) {     /* changed */
  461.             sysabort();
  462.             openf(args,YES);
  463.             rest(args);
  464.         }
  465.         else if (lookup(args,"name")) {
  466.             sysabort();
  467.             name(args);
  468.         }
  469.         else if (lookup(args,"write")) {    /* new */
  470.             sysabort();
  471.             writel(args);
  472.         }
  473.         else if (lookup(args,"rename")) {    /* new */
  474.             sysabort();
  475.             rename(args);
  476.         }
  477.         else if (lookup(args,"delname")) {    /* new */
  478.             sysabort();
  479.             delname(args);
  480.         }
  481.         else if (lookup(args,"closewrite")) {    /* new */
  482.             sysabort();
  483.             closewrite(args);
  484.         }
  485.         else if (lookup(args,"showtab")) {    /* new */
  486.             fmtytab();
  487.         }
  488.         else if (lookup(args,"hidetab")) {    /* new */
  489.             fmtntab();
  490.         }
  491.         else if (lookup(args,"closeread")) {    /* new */
  492.             sysabort();
  493.             closeread(args);
  494.         }
  495.         else if (lookup(args,"help")) {     /* new */
  496.             sysabort();
  497.             outclr();
  498.             outxy(0,SCRNL1);
  499.             message(HELP1);
  500.             message(HELP2);
  501.             message(HELP3);
  502.             message(HELP4);
  503.             message(HELP5);
  504.             message(HELP6);
  505.         }
  506.         else if (lookup(args,"save")) {
  507.             sysabort();
  508.             save(args);
  509.         }
  510.         else if (lookup(args,"read")) {      /* new */
  511.             sysabort();
  512.             getit(args);
  513.         }
  514.         else if (lookup(args,"move")) {     /* new */
  515.             moveit(args,begin_line,end_line,bufln());
  516.             begin_line=(-1);
  517.             end_line=(-1);
  518.         }
  519.         else if (lookup(args,"copy")) {     /* new */
  520.             copyit(args,begin_line,end_line,bufln());
  521.             begin_line=(-1);
  522.             end_line=(-1);
  523.         }
  524.         else if (lookup(args,"search")) {
  525.             sysabort();
  526.             search(args,begin_line,end_line);
  527.         }
  528.         else if (lookup(args,"tabs")) {
  529.             tabs(args);
  530.         }
  531.         else if (lookup(args,"rest")) {     /* new */
  532.             sysabort();
  533.             rest(args);
  534.         }
  535.         else if (lookup(args,"extract")) {    /* new */
  536.             sysabort();
  537.             extract(args);
  538.         }
  539.         else {
  540.             sysabort();
  541.             message("command not found");
  542.         }
  543.     }
  544. }
  545. lookup(line,command) char *line, *command;
  546. {
  547.     while(*command) {
  548.         if (tolower(*line++)!=*command++) {
  549.             return(NO);
  550.         }
  551.     }
  552.     if((*line==EOS)|(*line==' ')|(*line==TAB)) {
  553.         return(YES);
  554.     }
  555.     else {
  556.         return(NO);
  557.     }
  558. }
  559. getcmnd(args,offset) char *args; int offset;
  560. {
  561. int j,k;
  562. char c;
  563.     outxy(offset++,outyget());
  564.     outdeol();
  565.     scr_chr_attr(SETINTENSE);  /* set up prompt */
  566.     scr_chr_attr(SETBLINK);
  567.     syscout('>');
  568.     scr_chr_attr(NOBLINK);
  569.     k=0;
  570.     while ((c=syscin())!=CR) {
  571.         if ((c==EDIT1)|(c==INS1)) {
  572.             args[0]=c;
  573.             return;
  574.         }
  575.         if ((c==DEL1)|(c==LEFT1)) {
  576.             if (k>0) {
  577.                 outxy(offset,outyget());
  578.                 outdeol();
  579.                 k--;
  580.                 j=0;
  581.                 while (j<k) {
  582.                     outchar(args[j++]);
  583.                 }
  584.             }
  585.         }
  586.         else if (c==ABT1) {
  587.             outxy(offset,outyget());
  588.             outdeol();
  589.             k=0;
  590.         }
  591.         else if ((c!=TAB)&((c<32)|(c==127))) {
  592.             continue;
  593.         }
  594.         else {
  595.             if ((k+offset)<SCRNW1) {
  596.                 args[k++]=c;
  597.                 outchar(c);
  598.             }
  599.         }
  600.     }
  601.     args[k]=EOS;
  602.     scr_chr_attr(SETFAINT);
  603.     offset--;            /* erase prompt */
  604.     outxy(offset,outyget());
  605.     syscout(' ');
  606. }
  607.